Visual Basic Toolbox

home *** CD-ROM | disk | FTP | other *** search

/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / math / pspnum / demo / pspd1f4.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1995-06-03 | 27.3 KB | 624 lines

NumArOp Operations for Numeric Arrays Form25G OverflowNumAr3 Overflow = Error NumAr3 PSPNUM MS Sans Serif NumAr2 PSPNUM MS Sans Serif NumAr1 PSPNUM MS Sans Serif CmdNumAr3Previous CmdNumAr3Next CmdNumAr2Next CmdNumAr2Previous CmdNumAr1Next CmdNumAr1Previous RoundNumAr3 Round CmdOkay Do Operation CmdReset Reset ArOpSelect CmdCancel Cancel LabelAudAr3 ---Ar3 Audit--- LabelAudAr2 ---Ar2 Audit--- LabelAudAr1 ---Ar1 Audit--- ArVal35 MS Sans Serif ArVal34 MS Sans Serif ArVal33 MS Sans Serif ArVal32 MS Sans Serif ArVal31 MS Sans Serif ArVal23 MS Sans Serif ArVal22 MS Sans Serif ArVal21 MS Sans Serif ArVal14 MS Sans Serif ArVal13 MS Sans Serif ArVal12 MS Sans Serif ArVal11 MS Sans Serif NumAr3Comp LabelNumAr3 PSPNumAr3: 5 x 5+2 LabelNumAr2 PSPNumAr2: 3 x 3+1 LabelNumAr1 PSPNumAr1: 4 x 3+3 ArOpLabel NumAr3 Operation: @Q@Qu @ Form_Load Command1_Click NumArOp ArOpSelect_Change| ArOpSelectD SoAddItemq Assn2 NumAr14_Change NumAr12_Change ArVal23_Change CmdCancel_ClickB ArOp$ MB_EXCLAIM CmdOkay_Click CmdOkayError Num3v OperID1 VarID| OperID2 Num2( OperComp Num3Comp Caption Visible NumAr3 NumAr19 NumAr2 NumAr3Comp4 CmdNumAr1Next_Click NumArHi NumAr1Hi ArVal11 display FontBoldK CmdNumAr2Next_Clickj CmdNumAr1Previous_Click ArVal12 ArVal13 ArVal14 automaticallyt refreshesO OperElem NumAr1_LostFocus/ ForeColor~ ntBold HiColor H00C0C0C0 HI_COLOR FontItalici ArVal14_Change" FontUnderline Base( NumAr Dimension VarBase; VarDimension VarBase2l PSPNUM control ArVal24 ArVal21 ArVal22 ArVal23- CmdNumAr3Next_Click ArVal31v ArVal32 ArVal332 ArVal34 ArVal35Z VarBaseVarBaseB SetAr1HiLightM based9 currentU displayed Value ArVal31_Change ArVal32_Change ArVal12_Change ArVal21_Change ArVal35_Change CmdNumAr3Previous_Click SetAr2HiLight, CmdNumAr2Previous_Click[ SetAr3HiLightl ArVal11_Click SetAr1Valuese Highlight contents ArVal1 ensure= Element highlighted NumArElemSaA NumArElemSav SetAr2Values SetAr3Values Arrays SetAr3CurValue SetAr1CurValueX SetAr2CurValue) NumAr2_LostFocus NumAr3_LostFocus cases setting required CmdReset_Click ResetNumAr1 ResetNumAr2 ResetNumAr3 initof ArOpSelect_Click ArOpSelect_DblClickK RoundNumAr1_Click< RoundNum1 OperRound RoundNumAr1o RoundNumAr2_Click RoundNumAr2 RoundNumAr3_Click RoundNumAr3 characters selected firstN scannedd matching ArVal21_Click ArVal11_DblClick ArVal12_Click% ArVal12_DblClick6 ArVal13_ClickJ ArVal13_DblClick[ ArVal14_Clicko ArVal14_DblClick ArVal21_DblClick ArVal22_Click ArVal22_DblClick ArVal23_Click ArVal23_DblClick ArVal31_Click ArVal31_DblClick ArVal32_Click ArVal32_DblClick( @ ArVal33_Click< @ ArVal33_DblClickM @ ArVal34_Clicka @ ArVal34_DblClickr @ ArVal35_Click ArVal35_DblClick Label1_Click prevent iterate property MessageXX MB_OKMessageXXv MB_OKY EQStartPos' VarValue/ unformatted rather: Refesh formatted because ArrayElement ArrayBase ArrayElem ArrayDimension NumIDR NumID1( NumID2 Operation CompareResult ValueString Round Arrayase ArrayValue AutoRefresh FalseOperation OverflowNumAr3_Click OverflowNumAr3 OverflowError Operation selected via combo-box. Exclamation icon for message box. Okay button icon for message box. Define boolean switch for message box displayed once only ArOpSelect_Change ArOpSelect_Click ArOpSelect_DblClick ArVal11_Click Set current element of NumAr1 (automaticallyl refreshes displayed value in the PSPNUM control)l Reset highlight for edit boxes Focus on corresponding PSPNUM control. ArVal11_DblClick Set current element of NumAr1 (automatically) refreshes displayed value in the PSPNUM control)h Reset highlight for edit boxesh Focus on corresponding PSPNUM control. ArVal12_Click Set current element of NumAr1 (automaticallyr refreshes displayed value in the PSPNUM control)h Reset highlight for edit boxesh Focus on corresponding PSPNUM control. ArVal12_DblClick Set current element of NumAr1 (automaticallyr refreshes displayed value in the PSPNUM control)h Reset highlight for edit boxesh Focus on corresponding PSPNUM control. ArVal13_Click Set current element of NumAr1 (automaticallyr refreshes displayed value in the PSPNUM control)h Reset highlight for edit boxesh Focus on corresponding PSPNUM control. ArVal13_DblClick Set current element of NumAr1 (automaticallyr refreshes displayed value in the PSPNUM control)h Reset highlight for edit boxesh Focus on corresponding PSPNUM control. ArVal14_Click Set current element of NumAr1 (automaticallyr refreshes displayed value in the PSPNUM control)h Reset highlight for edit boxesh Focus on corresponding PSPNUM control. ArVal14_DblClick Set current element of NumAr1 (automaticallyr refreshes displayed value in the PSPNUM control)h Reset highlight for edit boxesh Focus on corresponding PSPNUM control. ArVal21_Click Set current element of NumAr2 (automaticallyc refreshes displayed value in the PSPNUM control)h Reset highlight for edit boxesh Focus on corresponding PSPNUM control. ArVal21_DblClick Set current element of NumAr2 (automaticallyc refreshes displayed value in the PSPNUM control)h Reset highlight for edit boxesh Focus on corresponding PSPNUM control. ArVal22_Click Set current element of NumAr2 (automaticallyc refreshes displayed value in the PSPNUM control)h Reset highlight for edit boxesh Focus on corresponding PSPNUM control. ArVal22_DblClick Set current element of NumAr2 (automaticallyc refreshes displayed value in the PSPNUM control)h Reset highlight for edit boxesh Focus on corresponding PSPNUM control. ArVal23_Click Set current element of NumAr2 (automaticallyc refreshes displayed value in the PSPNUM control)y Reset highlight for edit boxesh Focus on corresponding PSPNUM control. ArVal23_DblClick Set current element of NumAr2 (automaticallyr refreshes displayed value in the PSPNUM control)y Reset highlight for edit boxesh Focus on corresponding PSPNUM control. ArVal31_Click Set current element of NumAr3 (automaticallyr refreshes displayed value in the PSPNUM control)y Reset highlight for edit boxesh Focus on corresponding PSPNUM control. ArVal31_DblClick Set current element of NumAr3 (automaticallyr refreshes displayed value in the PSPNUM control)y Reset highlight for edit boxesh Focus on corresponding PSPNUM control. ArVal32_Click Set current element of NumAr3 (automaticallyr refreshes displayed value in the PSPNUM control)y Reset highlight for edit boxesh Focus on corresponding PSPNUM control. ArVal32_DblClick Set current element of NumAr3 (automaticallyr refreshes displayed value in the PSPNUM control)y Reset highlight for edit boxesh Focus on corresponding PSPNUM control. ArVal33_Click Set current element of NumAr3 (automaticallyr refreshes displayed value in the PSPNUM control)y Reset highlight for edit boxesh Focus on corresponding PSPNUM control. ArVal33_DblClick Set current element of NumAr3 (automaticallyr refreshes displayed value in the PSPNUM control)y Reset highlight for edit boxesh Focus on corresponding PSPNUM control. ArVal34_Click Set current element of NumAr3 (automaticallyr refreshes displayed value in the PSPNUM control)y Reset highlight for edit boxesh Focus on corresponding PSPNUM control. ArVal34_DblClick Set current element of NumAr3 (automaticallyr refreshes displayed value in the PSPNUM control)y Reset highlight for edit boxesh Focus on corresponding PSPNUM control. ArVal35_Click Set current element of NumAr3 (automaticallyr refreshes displayed value in the PSPNUM control)y Reset highlight for edit boxesh Focus on corresponding PSPNUM control. ArVal35_DblClick Set current element of NumAr3 (automaticallyr refreshes displayed value in the PSPNUM control)y Reset highlight for edit boxesh Focus on corresponding PSPNUM control. CmdCancel_Click CmdNumAr1Next_Click Increment current element of NumAr1 (automatically refreshes displayed value in the PSPNUM control)) Then highlight corresponding edit box CmdNumAr1Previous_Click Decrement current element of NumAr1 (automatically refreshes displayed value in the PSPNUM control)) Then highlight corresponding edit box CmdNumAr2Next_Click Increment current element of NumAr2 (automatically refreshes displayed value in the PSPNUM control)) Then highlight corresponding edit box.M CmdNumAr2Previous_Click Decrement current element of NumAr2 (automatically refreshes displayed value in the PSPNUM control)l Then highlight corresponding edit box.M CmdNumAr3Next_Click Increment current element of NumAr3 (automatically refreshes displayed value in the PSPNUM control)) Then highlight corresponding edit box.n CmdNumAr3Previous_Click Decrement current element of NumAr3 (automatically refreshes displayed value in the PSPNUM control)l Then highlight corresponding edit box.M CmdOkay_Click Test boolean switch for message box displayed once only Please Note: All operations containing 'EQ' can have any logical operator EQ/NE/GT/GE/LT/LE. Set up simple error-handler Perform operation selected via combo-box. In all cases, setting value of 'Oper' triggers e the required function for the PSPNUM NumAr3 e.g. the value of Num3 is updated. Operations require NumID1 or NumID2 ori both. In this generic routine, always set both even if only one is used.. Now refresh text box displays for all elements of NumAr3 (could be more selective e.g. only one element may have been updated). Reset value of TRUE/FALSE display if first twon characters of ArOp are 'is' i.e. logical operationp selected. Comp: TRUE Comp: FALSE Reset value of TRUE/FALSE display if first twon characters of ArOp are 'lookup' i.e. array being scanned for matching value. In this case also refresh display for matched element (if any). lookup Comp: TRUE Comp: FALSE Otherwise suppress display of comp true/false.. Simple error-handler: displays message box and continues with next statement.s Trapped Error CmdReset_Click Reset values recorded in all elements of 3 PSPNUM controls. Redisplay reset values in text boxess for all array elements. Form_Load Initialise boolean switch for message box displayed once only Initialise combo box options. e Add12 AddAll1 AddAll2 AddAll12 AssnRem AssnZero AssnAllZero Assn1 Assn2 AssnAll1 AssnAll2 Div12 DivAll1 DivAll2 DivAll12 DivRem12 IsEQzero IsEQ1 IsEQ2 IsAllEQZero IsAllEQ1 IsAllEQ2 LookUpEQ1 LookUpEQ2 Mult1 Mult2 Mult12 MultAll1 MultAll2 MultAll12 SortA SortD Sub12 SubAll1 SubAll2 SubAll12 SumAr1 SumAr2 Initialise default option in combo box. Initialise global variable for Selected Operation Set internal rounding property for PSPNUM object (simulate click on corresponding check box).o Initialise 3 PSPNUM objects with default values.n (Uses AutoRefresh property).a Set initial display for all array values. (Uses AutoRefresh property). Then highlight corresponding text boxes (generally first element for each NumAr unless different value of 'OperElem' initialised at design-time).l NumAr1_LostFocus Refresh value of current element to appropriate text box. NumAr2_LostFocus Refresh value of current element to appropriate text box. NumAr3_LostFocus Refresh value of current element to appropriate text box. OverflowNumAr3_Click Checked Unchecked Grayed - ignore ResetNumAr1 Set/reset default values in NumAr1. First save current element of NumAr1x Set No Refresh (to prevent Text propertyp flashing during iteration below). Iterate through all elements, assigning to ValueStringt (unformatted) rather than to Text (formatted) -6.555 984.310 2.731 -100.0 Restore current element of NumAr1 Set Refresh (to reinstate Text property display). ResetNumAr2 Set/reset default values in NumAr2. First save current element of NumAr2u Set No Refresh (to prevent Text propertyp flashing during iteration below). Iterate through all elements, assigning to ValueStringt (unformatted) rather than to Text (formatted) -100.6 942.1 Restore current element of NumAr2 Set Refresh (to reinstate Text property display). ResetNumAr3 Set/reset default values in NumAr3. First save current element of NumAr3u Set No Refresh (to prevent Text propertyp flashing during iteration below). Iterate through all elements, assigning to ValueStringt (unformatted) rather than to Text (formatted) -6.35 59626.78 42.18 250.00 Restore current element of NumAr3 Set Refresh (to reinstate Text property display). RoundNumAr3_Click Checked Unchecked Grayed - ignore SetAr1CurValue Refresh value in ArVal1 edit box from current element m of NumAr1. Refesh from ValueString (unformatted) rather than Text (formatted), because AutoRefresh FALSE used in this example. Note variables numbered relative to Baser and Dimension in case either changes in future. SetAr1HiLight Highlight the contents of the ArVal1 edit box corresponding to the current element of NumAr1. First ensure no element is highlighted. Reset display to highlight current element. Note variables numbered relative to BaseN and Dimension in case either changes in future. SetAr1Values Refresh all values in ArVal1 edit boxes fromr corresponding elements of NumAr1. e First save current element of NumAr1 Set No Refresh (to prevent Text propertyp flashing during iteration below). Iterate through all elements - assigning from ValueString (unformatted) rather than from Text (formatted) because Text is not currently being refreshed.T Restore current element of NumAr1 Set Refresh (to reinstate Text property display). SetAr2CurValue Refresh value in ArVal2 edit box from current element of NumAr2. Refesh from ValueString (unformatted) rather than Text (formatted), because AutoRefresh FALSE used in this example. Note variables numbered relative to Baser and Dimension in case either changes in future. SetAr2HiLight Highlight the contents of the ArVal2 edit box corresponding to the current element of NumAr2. First ensure no element is highlighted. Reset display to highlight current element. Note variables numbered relative to Basen and Dimension in case either changes in future. SetAr2Values Refresh all values in ArVal2 edit boxes fromh corresponding elements of NumAr2. First save current element of NumAr2x Set No Refresh (to prevent Text propertyp flashing during iteration below). Iterate through all elements - assigning from ValueString (unformatted) rather than from Text (formatted) because Text is not currently being refreshed.T Restore current element of NumAr2 Set Refresh (to reinstate Text property display). SetAr3CurValue Refresh value in ArVal3 edit box from current element of NumAr3. Refesh from ValueString (unformatted) rather than Text (formatted), because AutoRefresh FALSE used in this example. Note variables numbered relative to Basef and Dimension in case either changes in future. SetAr3HiLight Highlight the contents of the ArVal3 edit box corresponding to the current element of NumAr3. First reset display for any highlighted element.n Reset display to highlight current element. Note variables numbered relative to BaseN and Dimension in case either changes in future. SetAr3Values Refresh all values in ArVal3 edit boxes fromh corresponding elements of NumAr3. First save current element of NumAr3x Set No Refresh (to prevent Text propertyp flashing during iteration below). Iterate through all elements - assigning from ValueString (unformatted) rather than from Text (formatted) because Text is not currently being refreshed.T Restore current element of NumAr3 Set Refresh (to reinstate Text property display).